home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / castools.zip / FUNC13H.ASM < prev    next >
Assembly Source File  |  1989-08-10  |  1KB  |  37 lines
  1. Include multi.inc
  2. Include model.inc
  3.  
  4. ;==============================================================================
  5. ;
  6. ;   CAS function 13h -- Run Diagnostics
  7. ;   
  8. ;   Format:
  9. ;               int CASRunDiagnostics (BYTE mode); 
  10. ;   Input:
  11. ;               byte indicating start or status mode
  12. ;   Output:
  13. ;               start mode:   returns 0 if successful or negative error code.
  14. ;               status mode:  returns 40h if diagnostics in progress,
  15. ;                             positive number if completed successfully,
  16. ;                             negative error code if diagnostics failed.
  17. ;==============================================================================
  18.  
  19.                 .CODE
  20. CASRunDiagnostics       PROC    arg1:BYTE  
  21.  
  22.                 push    dx              ; save registers
  23.                 
  24.                 mov     ax,MUX          ; load multiplex number
  25.                 mov     ah,al           ; move into ah
  26.                 mov     al,13h          ; CAS function 13
  27.                 mov     dl,arg1         ; load mode
  28.                 int     2Fh
  29.  
  30.                 pop     dx              ; restore registers
  31.                 ret
  32. CASRunDiagnostics       endp
  33.      
  34.                 END
  35.                 
  36.  
  37.